;---------------------------------------
;FLI displayer. Not leaving IRQ
;(c) BRUSH/ELYSIUM
;---------------------------------------

begin    = $3000

         *= begin

         jmp start

         .text "fli displayer by brush"
         .text " of esm"

start    sei
         lda #$7f
         sta $dc0d
         lda #$01
         sta $d01a
         lda #<int
         sta $0314
         lda #>int
         sta $0315
         lda #$1b
         sta $d011
         lda #$2a
         sta $d012
         ldx #$00
hop1     lda $3c00,x
         sta $d800,x
         lda $3d00,x
         sta $d900,x
         lda $3e00,x
         sta $da00,x
         lda $3f00,x
         sta $db00,x
         dex
         bne hop1
         lda #$06
         sta $dd00
         lda #$d8
         sta $d016
         lda #$3b
         sta $d011
         lda #$09
         sta $d018
         cli

         jmp *

;---------------------------------------

int      ldx #$03
         dex
         bne *-1
         lda $d012
         cmp #$2a
         beq *+2
         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2b
         beq *+2
         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2c
         beq *+2
         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2d
         beq *+2
         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2e
         beq *+2
         ldx #$08
         dex
         bne *-1
         nop
         nop
         nop
         lda td011
         ldx td018
         ldy $d012
         cpy #$2f
         beq *+2
         stx $d018
         sta $d011
         ldy #$01
         nop
         bit $ea
hop2     lda td011,y
         ldx td018,y
         stx $d018
         sta $d011
         iny
         cpy #$c8
         bne hop2
         lda #$73
         sta $d011

         lsr $d019
         jmp $ea7e

;---------------------------------------

         *= begin+$0100

td011    .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f
         .byte $30,$39,$3a,$3b
         .byte $3c,$3d,$3e,$3f

;---------------------------------------

         *= begin+$0200

td018    .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f
         .byte $0f,$1f,$2f,$3f
         .byte $4f,$5f,$6f,$7f

;---------------------------------------

